object DMTuristik: TDMTuristik
  OldCreateOrder = False
  Height = 289
  Width = 385
  object DBTuristik: TUniConnection
    ProviderName = 'InterBase'
    Database = 'C:\PROYECTO TURISTIK XE2\turistik.fdb'
    SpecificOptions.Strings = (
      
        'InterBase.ClientLibrary=C:\Program Files (x86)\Firebird\Firebird' +
        '_2_5\bin\fbclient.dll')
    Username = 'SYSDBA'
    Password = 'masterkey'
    Server = 'localhost'
    Connected = True
    Left = 32
    Top = 32
  end
  object InterBaseUniProvider1: TInterBaseUniProvider
    Left = 32
    Top = 88
  end
  object qryCargo: TUniQuery
    Connection = DBTuristik
    SQL.Strings = (
      'select perfil_privilegio'
      'from usuarios'
      'where id_usuario = :ParUsuario')
    Left = 112
    Top = 32
    ParamData = <
      item
        DataType = ftInteger
        Name = 'ParUsuario'
      end>
    object qryCargoPERFIL_PRIVILEGIO: TStringField
      FieldName = 'PERFIL_PRIVILEGIO'
      Size = 10
    end
  end
  object TransaccionTuristik: TUniTransaction
    DefaultConnection = DBTuristik
    Left = 32
    Top = 144
  end
end
